(delete-frame-hook): Variable alias for

`delete-frame-functions'.  Mark obsolete.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1fb174b0f2a20df38827dbbeb643030ed6cb2618..91ce2ee5d3968cff0b9b90913baf1e98b96e11e4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-10-03  John Paul Wallington  <jpw@shootybangbang.com>
+
+       * frame.el (delete-frame-hook): Variable alias for
+       `delete-frame-functions'.  Mark obsolete.
+
 2002-10-02  Stefan Monnier  <monnier@cs.yale.edu>
 
        * textmodes/outline.el (outline-1, outline-2, outline-3, outline-4)

diff --git a/lisp/frame.el b/lisp/frame.el
index 6969c14b8552e2681098409abd84d5ca359f24e7..3fac3b28490aadbf8727b2ed9e0d6cd387eb302d 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -1113,6 +1113,10 @@ left untouched.  FRAME nil or omitted means use the selected frame."
 (make-obsolete 'set-screen-width 'set-frame-width) ;before 19.15
 (make-obsolete 'set-screen-height 'set-frame-height) ;before 19.15
 
+;; miscellaneous obsolescence declarations
+(defvaralias 'delete-frame-hook 'delete-frame-functions)
+(make-obsolete-variable 'delete-frame-hook 'delete-frame-functions "21.4")
+
 \f
 ;; Highlighting trailing whitespace.